home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1463.ZIP
/
DRAW-2D.ARC
/
STATUS1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-11-21
|
454b
|
13 lines
PROCEDURE STATUS1;
BEGIN
M1 := 2; (* HIDE MOUSE *)
MOUSE(M1,M2,M3,M4);
MOVCUR(22,1);
WRITE(BLKLINE);
MOVCUR(22,1);
WRITE(' X = ',X:8:3,' Y = ',Y:8:3,' UNITS: ',UNIMEAS,' ':8-LENGTH(UNIMEAS));
WRITE(' FILENAME: ',DFILE,' ':14-LENGTH(DFILE),' BELL ');
IF BELLCODE = 7 THEN WRITE('ON') ELSE WRITE('OFF');
M1 := 1; (* SHOW MOUSE *)
MOUSE(M1,M2,M3,M4);
END;